function [Mom,Result]=SubFun_Param2Mom(Info,Input)
%% Setup
ParamInput  =   Info.ParamInput;

for ii=1:Info.Dim
    ParamInput.(Info.ParamList{ii})     =   Input(ii);
end
PP          =   Setup_PP(ParamInput);
PP.InfoPrint=   0;
Result      =   struct('ParamVec',Input,'PP',PP,'Flag',1);
%% Solve the Steady State

try
    SS              =   SteadyState_Solver(PP);
    Result.SS       =   SS;
    Result.WI       =   SS_WealthIncome(PP,SS);
    Result.MPC      =   SS_MPC(PP,SS);
    Mom             =   SubFun_SS2Mom(PP,SS);
catch
    Mom             =   NaN(2,1);
    Result.Flag     =   0;
end